#!/bin/bash
perl -C32 -S rename -v 's/[\\\/\(\)\[\]\（\）\<\> "\“\”《》【】·。，,，\;；：~～\:\=\-、\&\^\$\#\@\!！\?？\*\+]/_/g'  *
perl -C32 -S rename -v 's/^_+//g' *
# 删除多余的 _
perl -C32 -S rename -v 's/_+/_/g' *
# 删除多余的 _.
perl -C32 -S rename -v 's/_+\././g' *
